﻿Public Class Noten_Class
    Public punkte As Integer
    Public typ As String
    Public bemerkung As String
    Public datum As String

    Public Sub Note(ByVal _punkte As Integer, ByVal _typ As String, ByVal _bem As String, ByVal _datum As String)
        punkte = _punkte
        typ = _typ
        bemerkung = _bem
        datum = _datum
    End Sub

    Public Sub Note(ByVal _punkte As Integer, ByVal _typ As String)
        punkte = _punkte
        typ = _typ
        bemerkung = ""
        datum = ""
    End Sub

    Public Sub Note()
    End Sub

End Class
